home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / PASCAL / 0921.ZIP / FORM.ARC / _FORM.DOC next >
Text File  |  1987-11-16  |  2KB  |  39 lines
  1. PROGRAM Form_Test;
  2.   {  This test program uses the Turbo Pascal Unit "_FORM" which partially
  3.   replaces the FORM function in Turbo Pascall 3.0 with BCD.  The calling
  4.   procedure is shown below in examples.  Please feel free to improve and
  5.   upload improvements.  -  Paul Mayer [70040,645] }
  6.  
  7.   USES CRT, _FORM;
  8. VAR
  9.   I : Word;
  10.  
  11. BEGIN
  12.   ClrScr;
  13.   WriteLn('A few examples of using the "Form(''<mask>'',<variable or number>)" function.');
  14.   WriteLn('Written by Paul Mayer for compatibility with Turbo Pascal 3.0 with BCD as the');
  15.   WriteLn('"Form" function is not included in the new Turbo Pascal version 4.0. ');
  16.   WriteLn;
  17.   WriteLn('Numbers and comma delimiter using WriteLn(Form(''###,###.##'', 67235.98))');
  18.   WriteLn(Form('###,###.##', 67235.98));
  19.   WriteLn;
  20.   WriteLn('Numbers too big for pattern using WriteLn(Form(''###,###.##'', 6723543.98))');
  21.   WriteLn(Form('###,###.##', 6723543.98));
  22.   WriteLn;
  23.   WriteLn('Small Numbers using WriteLn(Form(''###.##'', 3.98))');
  24.   WriteLn(Form('###.##', 3.98));
  25.   WriteLn;
  26.   WriteLn('Format past the decimal point using WriteLn(Form(''#.###'', 1.985))');
  27.   WriteLn(Form('#.###', 1.985));
  28.   WriteLn;
  29.   WriteLn('Numbers without decimal using WriteLn(Form(''####'', 1.985)) (Watch the roundoff)');
  30.   WriteLn(Form('####', 1.985));
  31.   WriteLn;
  32.   WriteLn('Numbers as a dollar format using WriteLn(Form(''$#,###.##'', 2876.89))');
  33.   WriteLn(Form('$#,###.##', 2876.89));
  34.   WriteLn;
  35.   WriteLn('Text & numbers using WriteLn(Form(''Payroll Total: $#,###,###.##'', 4567235.98))');
  36.   WriteLn(Form('Payroll Total: $#,###,###.##', 4567235.98));
  37.   ReadLn;
  38. END.
  39.